home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SCANS.ZIP / SCANS.TXT
Text File  |  1997-03-07  |  8KB  |  179 lines
  1. ((((((((((((RAW)))))))))))))))
  2.  
  3. #ircopchan disabled
  4. 352:* {
  5.   if (* isin $parm7) {
  6.     if ($parm4 !isin %address) { %address = %address $parm4 }
  7.     if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  8.       if ($parm6 !isin %ircop) {
  9.         %ircop = %ircop  $parm6
  10.       }
  11.       else {
  12.         set % [ $+ [ ircop ] ] [ $parm6 ]
  13.       }
  14.     }
  15.     else {
  16.       set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  17.     }
  18.     halt
  19.   }
  20. }
  21. 315:* {
  22.   .disable #ircopchan
  23.   set %a 1
  24.   :next
  25.   set %token $token(%a,32,%address)
  26.   set %optoken $token(%a,32,%address)
  27.   if (%token == $null) { goto done }
  28.   if (%optoken == $null) { goto done }  
  29.   else {
  30.     inc %total | inc %a
  31.     if (%option == 1) { /echo 2 -a 14[06 %total $+ . $+  14]02 %addr [ $+ [ %token ] ] 6@ 14[03 $+ %token $+ 14] }
  32.     if (%option == 2) { /msg %chan 14[06 %total $+ . $+ 14]02 [ %ircop [ $+ [ %token ] ] ] 6@ 14[03 $+ %token $+ 14] }
  33.     unset [ %ircop [ $+ [ %token ] ] ]
  34.     unset [ %addr [ $+ [ %token ] ] ]
  35.     goto next
  36.   }
  37.   else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  38.   :done
  39.   %tototal = %total * 100
  40.   %tpercent = [ %tototal ] / %totaln
  41.   if (%option == 1) { /echo 5 %chan 14[02IRCop Scan Done! Total:03 %total $+ 6( $+ %tpercent $+ % $+ ) $+ 14] }
  42.   if (%option == 2) { /msg %chan 14[02Clone IRCop Done! Total:03 %total $+ 6( $+ %tpercent $+ % $+ ) $+ 14] }
  43.   unset %token | unset %tototal | unset %tpercent | unset %total | unset %a | unset %addr* | unset %ircop* | unset %chan | unset %option | halt
  44. }
  45. #ircopchan end
  46. #clones disabled
  47. 352:* {
  48.   if ($parm4 !isin %address) { %address = %address $parm4 }
  49.   if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  50.     if ([ %clone [ $+ [ $parm4 ] ] ] == $null) {
  51.       set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] 3<-> 2 $+ $parm6
  52.     }
  53.     else {
  54.       set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] 3<-> 2 $+ $parm6
  55.     }
  56.   }
  57.   else {
  58.     set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  59.   }
  60.   halt
  61. }
  62. 315:* {
  63.   .disable #clones
  64.   set %a 1
  65.   :next
  66.   set %token $token(%a,32,%address)
  67.   if (%token == $null) { goto done }  
  68.   else {
  69.     if ([ %clone [ $+ [ %token ] ] ] != $null) {
  70.       inc %total | inc %a
  71.       if (%option == 1) { /echo 2 -a 14[06 %total $+ . $+  14]2  [ %clone [ $+ [ %token ] ] ] 6@ 14[03 $+ %token $+ 14] }
  72.       if (%option == 2) { /msg %chan 14[06 %total $+ . $+ 14]2 [ %clone [ $+ [ %token ] ] ] 6@ 14[03 $+ %token $+ 14] }
  73.       unset [ %clone [ $+ [ %token ] ] ]
  74.       unset [ %addr [ $+ [ %token ] ] ]
  75.       goto next
  76.     }
  77.     else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  78.   }
  79.   :done
  80.   %tototal = %total * 100
  81.   %tpercent = [ %tototal ] / %totaln
  82.   if (%option == 1) { /echo 5 %chan 14[2Clone Dection Done! Total:3 %total $+ 6( $+ %tpercent $+ % $+ ) $+ 14] }
  83.   if (%option == 2) { /msg %chan 14[2Clone Dection Done! Total:3 %total $+ 6( $+ %tpercent $+ % $+ ) $+ 14] }
  84.   unset %token | unset %tototal | unset %tpercent | unset %total | unset %a | unset %addr* | unset %clone* | unset %chan | unset %option | halt
  85. }
  86. #clones end
  87. #pornchk disabled
  88. 319:*: {
  89.   if ($nick(%pornnick,%pornchan) == $me) { halt } 
  90.   if ((sex isin $parm3*) || (porn isin $parm3*) || (pix isin $parm3*) || (pics isin $parm3*) || (XXX isin $parm3*)) {
  91.     ban %pornchan $nick(%pornnick,%pornchan) 3 | kick %pornchan $nick(%pornnick,%pornchan) 14[6Get Out Perv!14] %ver 
  92.   }
  93.   else {  inc %pornnick 1 }
  94.   if %pornnick > $nick(0,%pornchan) { goto next }  
  95.   else { whois $nick(%pornnick,%pornchan) | goto theend }
  96.   :next
  97.   .timer6 1 4 /.disable #pornchk
  98.   .enable #whois 
  99.   :theend
  100. }
  101. #pornchk end
  102. #chanstats disabled
  103. 352:* { 
  104.   if (%chan.stats == on) {
  105.     if (* isin $parm7) { inc %cops } 
  106.     if (G isin $parm7) { inc %away.num } 
  107.     if (@ isin $parm7) { inc %op.num } 
  108.     if (@ !isin $parm7) { inc %nop.num } 
  109.     inc %hops $parm8 
  110.     if ($parm4 isin %addies) { inc %clones }
  111.     set %addies %addies $parm4
  112.   }
  113. }
  114. 315:* { 
  115.   if (%chan.stats == on) {
  116.     if (%stat.win == $null) %stat.win = echo -a
  117.     %tocops = %cops * 100
  118.     %toaway = %away.num * 100
  119.     %toclones = %clones * 100
  120.     %tonum = %nop.num * 100
  121.     %toopnum = %op.num * 100
  122.     %perc.cops = [ %tocops ] / %user.num 
  123.     %perc.away = [ %toaway ] / %user.num 
  124.     %perc.clones = [ %toclones ] / %user.num 
  125.     %perc.num = [ %tonum ] / %user.num 
  126.     %perc.op = [ %toopnum ] / %user.num 
  127.     %here = %user.num - %away.num
  128.     %tohere = %here * 100
  129.     %perc.here = [ %tohere ] / %user.num
  130.     %stat.win 14,0[6Total Users14]: 10 $+ %user.num 14<-> 14[6IRC Ops14]: 10 $+ %cops $+ 2( $+ %perc.cops $+ % $+ )ááááá
  131.     %stat.win 14[6Non Ops14]: 10 $+ %nop.num $+ 2( $+ %perc.num $+ % $+ ) 14<-> 14[6Chan Ops14]: 10 $+ %op.num $+ 2( $+ %perc.opnum $+ % $+ ) 
  132.     %avghops = %hops / %user.num
  133.     %stat.win 14,0[6Away14]: 10 $+ %away.num $+ 2( $+ %perc.away $+ % ) 14<-> 6Here: 10 $+ %here $+ 2( $+ %perc.here $+ % $+ )ááááááááá
  134.     %stat.win 14,0[6Avg Hops14]: 10 $+ %avghops 14<-> 14[6Clones14]: 10 $+ %clones $+ 2( $+ %perc.clones $+ % $+ )áááááááááá
  135.     unset %stat.win | unset %cops | unset %away.num | unset %op.num | unset %nop.num | set %chan.stats off
  136.     unset %tocops | unset %toaway | unset %toclones | unset %tonum | unset %toopnum | unset %perc.cops
  137.     unset %perc.away | unset %perc.clones | unset %perc.num | unset %perc.op | unset %here | unset %tohere | unset %perc.here | .disable #chanstats
  138.   }
  139. }
  140. #chanstats end
  141.  
  142. ((((((((((((ALIASES)))))))))))))
  143.  
  144. /ir {
  145.   if ($1 == $null) { echo 4 -a Error, type: /ir [-e|-c] | halt }
  146.   if ($1 == -e) { set %totaln $nick(0,#) | set %total 0 | set %option 1 | set %chan # | /echo -a 1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[6IRCop Scan14] 3For 14[2 $+ #  $+ 14] | .enable #ircopchan | who # }
  147.   if ($1 == -c) { set %totaln $nick(0,#) | set %total 0 | set %option 2 | set %chan # | /msg # 1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[6IRCop Scan14] 3For 14[2 $+ #  $+ 14] | .enable #ircopchan | who # }
  148. }
  149. /cd {
  150.   if ($1 == $null) { echo 4 -a Error, type: /clones [-e|-c] | halt }
  151.   if ($1 == -e) { set %totaln $nick(0,#) | set %total 0 | set %option 1 | set %chan # | /echo -a 1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[6Clone Detection14] 3For 14[2 $+ #  $+ 14] | .enable #clones | who # }
  152.   if ($1 == -c) { set %totaln $nick(0,#) | set %total 0 | set %option 2 | set %chan # | /msg #  1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[6Clone Detection14] 3For 14[2 $+ #  $+ 14] | .enable #clones | who # }
  153. }
  154. /pscan {
  155.   if ($1 == $null) { echo 4 -a Error, Type: /pscan [-e|-c] | halt }
  156.   if ($1 == -e) { echo -a 1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[3Searching 14(6 $+ # $+ 14)3 for PERVS.14] | /.disable #whois | /.enable #pornchk | /set %pornnick 1 | /set %pornchan # | /whois $nick(%pornnick,%pornchan) }
  157.   if ($1 == -c) { msg # 1,15á1,14-=14,1╨¬15«K0 º(-)15¬╨║14\\'º1,14=-1,15á0,1[=8P«°0=]1,0 14[3Searching 14(6 $+ # $+ 14)3 for PERVS.14] | /.disable #whois | /.enable #pornchk | /set %pornnick 1 | /set %pornchan # | /whois $nick(%pornnick,%pornchan) }
  158. }
  159. /chstat {
  160.   if ($1 == $null) { echo 4 -a Syntax Error: /chstat <-e|-c> }
  161.   if ($1 == -e) { .enable #chanstats | set %stat.win echo -a | set %chan.stats on | set %chan.stat # | set %user.num $nick(0,#) | who %chan.stat | echo -a 14[6Gather Channel Statistics For 14,0[2 $+ # $+ 14] }    
  162.   if ($1 == -c) { .enable #chanstats | set %stat.win /msg # | set %chan.stats on | set %chan.stat # | set %user.num $nick(0,#)  | who %chan.stat | msg # 14[6Gather Channel Statistics For 14,0[2 $+ # $+ 14] }
  163. }
  164.  
  165. (((((((POPUPS/CHANNEL)))))))))))
  166.  
  167. [&C]hannel Scans
  168. .[&C]hannel Stats
  169. ..[&E]cho:/chstat -e
  170. ..[&P]lay:/chstat -c
  171. .[&C]lone Scan
  172. ..[&E]cho:/cd -e
  173. ..[&P]lay:/cd -c
  174. .[&P]erv Scan
  175. ..[&E]cho:/pscan -e
  176. ..[&P]lay:/pscan -c
  177. .[&I]RCop Scan
  178. ..[&E]cho:/ir -e
  179. ..[&P]lay:/ir -c